home *** CD-ROM | disk | FTP | other *** search
/ Horoscope Companion: Scorpio / Horoscope Companion: Scorpio.iso / pc / scorpio / hab.dir / Internal_1.ls < prev    next >
Encoding:
Text File  |  1996-10-08  |  2.5 KB  |  73 lines
  1. on startMovie
  2.   cursor(4)
  3.   hSetupMovie()
  4. end
  5.  
  6. on stopMovie
  7.   hCleanupSprites()
  8. end
  9.  
  10. on idle
  11.   CheckForRollovers(the rollOver)
  12. end
  13.  
  14. on hSetupMovie
  15.   global gSunSignSprite, gTextSpriteNum, gAnswerTextSpriteNum, gVoiceoverButtonSprite, gVoiceoverPlaying
  16.   set gSunSignSprite to 2
  17.   set gTextSpriteNum to 6
  18.   set gAnswerTextSpriteNum to 23
  19.   set gVoiceoverButtonSprite to 39
  20.   set gVoiceoverPlaying to 0
  21. end
  22.  
  23. on hStartSunSignRolloverAction whichSprite, whichSunSign
  24.   global gSunSignSprite
  25.   set currentCastMember to the name of member the memberNum of sprite whichSprite of castLib the castLibNum of sprite whichSprite
  26.   if (the puppet of sprite whichSprite = 0) and (currentCastMember = "up state") then
  27.     puppetSprite(whichSprite, 1)
  28.     set the memberNum of sprite whichSprite to the memberNum of sprite whichSprite + 1
  29.     puppetSprite(gSunSignSprite, 1)
  30.     set mNum to the number of member ("sun sign" && whichSunSign) of castLib the castLibNum of sprite gSunSignSprite
  31.     set the memberNum of sprite gSunSignSprite to member mNum
  32.     updateStage()
  33.   end if
  34. end
  35.  
  36. on hEndSunSignRolloverAction whichSprite
  37.   global gSunSignSprite
  38.   puppetSprite(whichSprite, 0)
  39.   puppetSprite(gSunSignSprite, 0)
  40.   updateStage()
  41. end
  42.  
  43. on hSunSignButtonAction whichSunSign
  44.   global gSunSignSprite
  45.   puppetSound("click")
  46.   set rolledover to the memberNum of sprite the clickOn
  47.   set depressed to rolledover + 1
  48.   set released to rolledover - 1
  49.   set sunSignRollover to the number of member ("sun sign" && whichSunSign) of castLib the castLibNum of sprite gSunSignSprite
  50.   set sunSignDownState to the number of member ("sun sign" && whichSunSign & "a") of castLib the castLibNum of sprite gSunSignSprite
  51.   set sunSignUpState to the number of member "sun sign" of castLib the castLibNum of sprite gSunSignSprite
  52.   set the memberNum of sprite the clickOn to depressed
  53.   set the memberNum of sprite gSunSignSprite to member sunSignDownState
  54.   updateStage()
  55.   set the mouseUpScript to "hNoMouseUp"
  56.   repeat while the stillDown
  57.     if rollOver(the clickOn) then
  58.       set the memberNum of sprite the clickOn to depressed
  59.       set the memberNum of sprite gSunSignSprite to member sunSignDownState
  60.     else
  61.       set the memberNum of sprite the clickOn to released
  62.       set the memberNum of sprite gSunSignSprite to member sunSignUpState
  63.     end if
  64.     updateStage()
  65.   end repeat
  66.   if rollOver(the clickOn) then
  67.     set the memberNum of sprite the clickOn to rolledover
  68.     set the memberNum of sprite gSunSignSprite to member sunSignRollover
  69.     updateStage()
  70.   end if
  71.   return rollOver(the clickOn)
  72. end
  73.